home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOUR.DIR / 00011_Script_buildTourButtons < prev    next >
Text File  |  1995-11-15  |  1KB  |  25 lines
  1. on buildTourButtons
  2.   global gTourButtons
  3.   if voidP(gTourButtons) then
  4.     set gTourButtons to [:]
  5.     addProp gTourButtons, 2, tB(2,"TLARG.PIC","TLARGR.PIC","TLARGP.PIC","large")
  6.     addProp gTourButtons, 3, tB(3,"TSMALL.PIC","TSMALLR.PIC","TSMALLP.PIC","small")
  7.     addProp gTourButtons, 4, tB(4,"TSHOWC.PIC","TSHOWCR.PIC","TSHOWCP.PIC","controller")
  8.     addProp gTourButtons, 5, tB(5,"TT.PIC","TTR.PIC","TTP.PIC","retraceLocal")
  9.     addProp gTourButtons,6, tB(6,"TCC.PIC","TCR.PIC","TCP.PIC","doContentsLocal")
  10.     addProp gTourButtons, 7, tB(7,"TL.PIC","TLR.PIC","TLP.PIC","prevTour")
  11.     addProp gTourButtons, 8, tB(8,"TR.PIC","TRR.PIC","TRP.PIC","nextTour")
  12.     addProp gTourButtons, 9, tB(9,"TVISIT.PIC","TVISITR.PIC","TVISITP.PIC","visit")
  13.     addProp gTourButtons, 10, tB(10,"TCONTT.PIC","TCONTTR.PIC","TCONTTP.PIC","continue")
  14.     addProp gTourButtons, 11, tB(11,"QDbox","QDbox","QDbox","playTour")
  15.     addProp gTourButtons, 12, qt(12)
  16.   end if
  17. end buildTourButtons
  18.  
  19. on tB c,n,r,p,sc
  20.   return birth(script "bt",c, n,r,p,sc)
  21. end tB
  22.  
  23. on qt c
  24.   return birth(script "qt",c)
  25. end qt